home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / clipper / nannws36.zip / SAVE.FIG < prev    next >
Text File  |  1989-05-01  |  499b  |  23 lines
  1. Figure 1.  Save the Screen.
  2.  
  3.  
  4. Example 1: Save screen in 80 buffers, one for each column.
  5.  
  6. FOR xx = 0 TO 79
  7.    bufname = '_buffer' + LTRIM(STR(xx))
  8.    &bufname = SAVESCREEN(0, xx, 24, xx)
  9. NEXT
  10. SAVE ALL LIKE _buffer* TO main.scr
  11. RELEASE ALL LIKE _buffer*
  12.  
  13.  
  14.  
  15. Example 2: Save screen in 25 rows, one for each column.
  16.  
  17. FOR xx = 0 TO 24
  18.    bufname = '_buffer' + LTRIM(STR(xx))
  19.    &bufname = SAVESCREEN(xx, 0, xx, 79)
  20. NEXT
  21. SAVE ALL LIKE _buffer* TO main.scr
  22. RELEASE ALL LIKE _buffer*
  23.